home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / hsto.rpl < prev    next >
Text File  |  1992-08-18  |  410b  |  30 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ HSTO by James H. Cloos
  3. "DIR
  4. 'HSTO'
  5.   :: CK2NOLASTWD
  6.     :: CK&DISPATCH1
  7. # 6h StoHiddenVar
  8.     ;
  9.   ;
  10. 'HRCL'
  11.   :: CK1NOLASTWD
  12.     :: CK&DISPATCH1
  13. # 6h
  14.       :: RclHiddenVar
  15. ?SEMI # 204h DO#EXIT
  16.       ;
  17.     ;
  18.   ;
  19. 'HPURGE'
  20.   :: CK1NOLASTWD
  21.     :: CK&DISPATCH1
  22. # 6h PuHiddenVar
  23.     ;
  24.   ;
  25. 'HVARS'
  26.   :: CK0NOLASTWD
  27. PATHDIR HOMEDIR ID ''
  28. DOVARS SWAP COMPEVAL
  29.   ;
  30. END"